home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / ControlMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  6.2 KB  |  141 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. Stores.StoreDesc
  11. TextViews.StdViewDesc
  12. TextViews.ViewDesc
  13. Containers.ViewDesc
  14. Views.ViewDesc
  15. Stores.StoreDesc
  16. TextModels.StdModelDesc
  17. TextModels.ModelDesc
  18. Containers.ModelDesc
  19. Models.ModelDesc
  20. Stores.ElemDesc
  21. Stores.StoreDesc
  22. TextModels.AttributesDesc
  23. Stores.StoreDesc
  24. Geneva
  25. TextModels.AttributesDesc
  26. Stores.StoreDesc
  27. Geneva
  28. StdStamps.StdViewDesc
  29. Views.ViewDesc
  30. Stores.StoreDesc
  31. TextModels.AttributesDesc
  32. Stores.StoreDesc
  33. Geneva
  34. TextModels.AttributesDesc
  35. Stores.StoreDesc
  36. Geneva
  37. MODULE MacControlMgr;
  38. (* cp 
  39.     control definition functions eliminated
  40.     IMPORT SYSTEM, MacTypes, MacWindowMgr;
  41.     CONST
  42.         pushButProc* = 0;
  43.         checkBoxProc* = 1;
  44.         radioButProc* = 2;
  45.         useWFont* = 8;
  46.         scrollBarProc* = 16;
  47.         inButton* = 10;
  48.         inCheckBox* = 11;
  49.         inUpButton* = 20;
  50.         inDownButton* = 21;
  51.         inPageUp* = 22;
  52.         inPageDown* = 23;
  53.         inThumb* = 129;
  54.         noConstraint* = 0;
  55.         hAxisOnly* = 1;
  56.         vAxisOnly* = 2;
  57.         HANDLE = 2;
  58.         CODE = 1;
  59.     TYPE
  60.         ControlPtr* = POINTER TO ControlRecord;
  61.         ControlHandle* = POINTER [HANDLE] TO ControlRecord;
  62.         ControlRecord* = RECORD (MacTypes.Data)
  63.             nextControl*: ControlHandle;
  64.             contrlOwner*: MacWindowMgr.WindowPtr;
  65.             contrlRect*: MacTypes.Rect;
  66.             contrlVis*,
  67.             contrlHilite*: MacTypes.PackedChar;
  68.             contrlValue*,
  69.             contrlMin*,
  70.             contrlMax*: INTEGER;
  71.             contrlDefProc*: MacTypes.Handle;
  72.             contrlData*: MacTypes.Handle;
  73.             contrlAction*: MacTypes.ProcPtr;
  74.             contrlRfCon*: LONGINT;
  75.             contrlTitle*: MacTypes.Str255
  76.         END;
  77.     (** Initialization and Allocation **)
  78.     PROCEDURE [CODE] NewControl* (theWindow: MacWindowMgr.WindowPtr;
  79.                                     boundsRect: MacTypes.Rect; title: MacTypes.Str255;
  80.                                     visible: BOOLEAN; value, min, max, procID: INTEGER;
  81.                                     refCon: LONGINT): ControlHandle 0A9H, 054H;
  82.     PROCEDURE [CODE] GetNewControl* (controlID: INTEGER; theWindow: MacWindowMgr.WindowPtr): ControlHandle 0A9H, 0BEH;
  83.     PROCEDURE [CODE] DisposeControl* (theControl: ControlHandle) 0A9H, 055H;
  84.     PROCEDURE [CODE] KillControls* (theWindow: MacWindowMgr.WindowPtr) 0A9H, 056H;
  85.     (** Control Display **)
  86.     PROCEDURE [CODE] SetCTitle* (theControl: ControlHandle; VAR title: MacTypes.Str255) 0A9H, 05FH;
  87.     PROCEDURE [CODE] GetCTitle* (theControl: ControlHandle; VAR title: MacTypes.Str255) 0A9H, 05EH;
  88.     PROCEDURE [CODE] HideControl* (theControl: ControlHandle) 0A9H, 058H;
  89.     PROCEDURE [CODE] ShowControl* (theControl: ControlHandle) 0A9H, 057H;
  90.     PROCEDURE [CODE] DrawControls* (theWindow: MacWindowMgr.WindowPtr) 0A9H, 069H;
  91.     PROCEDURE [CODE] HiliteControl* (theControl: ControlHandle; hiliteState: INTEGER) 0A9H, 05DH;
  92.     PROCEDURE [CODE] Draw1Control* (theControl: ControlHandle) 0A9H, 06DH;
  93.     PROCEDURE [CODE] UpdtControl* (theWindow: MacWindowMgr.WindowPtr; updateRgn: MacTypes.RgnHandle) 0A9H, 053H;
  94.     (** Mouse Location **)
  95.     PROCEDURE [CODE] FindControl* (thePoint: MacTypes.Point; theWindow: MacWindowMgr.WindowPtr;
  96.                                     VAR whichControl: ControlHandle): INTEGER 0A9H, 06CH;
  97.     PROCEDURE [CODE] TrackControl* (theControl: ControlHandle; startPt: MacTypes.Point;
  98.                                     actionProc: MacTypes.ProcPtr): INTEGER 0A9H, 068H;
  99.     PROCEDURE [CODE] TestControl* (theControl: ControlHandle; thePt: MacTypes.Point): INTEGER 0A9H, 066H;
  100.     (** Control Movement and Sizing **)
  101.     PROCEDURE [CODE] MoveControl* (theControl: ControlHandle; h, v: INTEGER) 0A9H, 059H;
  102.     PROCEDURE [CODE] DragControl* (theControl: ControlHandle; startPt: MacTypes.Point;
  103.                                 limitRect, slopRect: MacTypes.Rect; axis: INTEGER) 0A9H, 067H;
  104.     PROCEDURE [CODE] SizeControl* (theControl: ControlHandle; w, h: INTEGER) 0A9H, 05CH;
  105.     (** Control Setting and Range **)
  106.     PROCEDURE [CODE] SetCtlValue* (theControl: ControlHandle; theValue: INTEGER) 0A9H, 063H;
  107.     PROCEDURE [CODE] GetCtlValue* (theControl: ControlHandle): INTEGER 0A9H, 060H;
  108.     PROCEDURE [CODE] SetCtlMin* (theControl: ControlHandle; minValue: INTEGER) 0A9H, 064H;
  109.     PROCEDURE [CODE] GetCtlMin* (theControl: ControlHandle): INTEGER 0A9H, 061H;
  110.     PROCEDURE [CODE] SetCtlMax* (theControl: ControlHandle; maxValue: INTEGER) 0A9H, 065H;
  111.     PROCEDURE [CODE] GetCtlMax* (theControl: ControlHandle): INTEGER 0A9H, 062H;
  112.     (** Miscellaneous Routines **)
  113.     PROCEDURE [CODE] SetCRefCon* (theControl: ControlHandle; data: LONGINT) 0A9H, 05BH;
  114.     PROCEDURE [CODE] GetCRefCon* (theControl: ControlHandle): LONGINT 0A9H, 05AH;
  115.     PROCEDURE [CODE] SetCtlAction* (theControl: ControlHandle; actionProc: MacTypes.ProcPtr) 0A9H, 06BH;
  116.     PROCEDURE [CODE] GetCtlAction* (theControl: ControlHandle): MacTypes.ProcPtr 0A9H, 06AH;
  117. END MacControlMgr.
  118. TextControllers.StdCtrlDesc
  119. TextControllers.ControllerDesc
  120. Containers.ControllerDesc
  121. Controllers.ControllerDesc
  122. Stores.StoreDesc
  123. TextRulers.StdRulerDesc
  124. TextRulers.RulerDesc
  125. Views.ViewDesc
  126. Stores.StoreDesc
  127. TextRulers.StdStyleDesc
  128. TextRulers.StyleDesc
  129. Models.ModelDesc
  130. Stores.ElemDesc
  131. Stores.StoreDesc
  132. TextRulers.AttributesDesc
  133. Stores.StoreDesc
  134. TextModels.AttributesDesc
  135. Stores.StoreDesc
  136. Geneva
  137. Documents.ControllerDesc
  138. Containers.ControllerDesc
  139. Controllers.ControllerDesc
  140. Stores.StoreDesc
  141.